perm filename FM[MUS,LCS] blob sn#469438 filedate 1979-08-28 generic text, type T, neo UTF8
INSTRUMENT FM;
OSCIL(P4,MAG/P2,P5);
INTRP(P7*P9*MAG,P8*P9*MAG,P10);
OSCIL(U2,P9*MAG,P11);
NOSCIL(U1,U3+P3*MAG,P6);
OUTA←OUTA+U4;END;
        
      	ARRAY F1,F2,F3(512); < all these are already declared in MUS10
      	SYNTH(F1); 1 1 999;   < A sine wave.
      	SEG(F2);0,1  .9,4  1,8  1,72  .8,88  .5,95  0,100; < Envelope
      	SEG(F3); 0,1  1,100;  < An upward slope or ramp.
        
      	PLAY; FM 0 .5 100 1000 F2   F1 0 10 100 F3  F1; FINISH;